home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / ProcLib20.lha / AMAL / _AMAL_FIREWORKS.Amos / _AMAL_FIREWORKS.amosSourceCode next >
AMOS Source Code  |  1993-10-27  |  1KB  |  40 lines
  1. Screen Open 0,320,200,16,0 : Curs Off : Flash Off : Cls 0
  2. _AMAL_FIREWORKS[30]
  3. Procedure _AMAL_FIREWORKS[NUM]
  4.    Synchro Off 
  5.    A$=" Loop: Let R0=R0-1 ; Let X=X+R1 ; Let Y=Y-R0 ; "
  6.    B$=A$
  7.    A$=A$+" If X<126 Jump Stop ; If X>448 Jump Stop ; If Y>300 Jump Stop "
  8.    B$=B$+" If X<-2 Jump Stop ; If X>320 Jump Stop ; If Y>250 Jump Stop "
  9.    A$=A$+" Pause ; Jump Loop ; Stop: Let RA=RA-1 ; Wait: Pause ; Jump Wait "
  10.    B$=B$+" Pause ; Jump Loop ; Stop: Let RA=RA-1 ; Wait: Pause ; Jump Wait "
  11.    '
  12.    AG:
  13.    X=178+Rnd(220)
  14.    Y=100+Rnd(150)
  15.    D=Rnd(10)-5-5
  16.    For N=0 To 7
  17.       Sprite N,X,Y,1
  18.       Channel N To Sprite N
  19.       Amal N,A$
  20.       Amreg(N,0)=Rnd(14)+4
  21.       Amreg(N,1)=Rnd(10)+D
  22.    Next N
  23.    X=X-128 : Y=Y-50
  24.    For N=8 To NUM-1
  25.       Bob N,X,Y,1
  26.       Channel N To Bob N
  27.       Amal N,B$
  28.       Amreg(N,0)=Rnd(14)+4
  29.       Amreg(N,1)=Rnd(10)+D
  30.    Next N
  31.    Amreg(0)=N
  32.    '
  33.    Amal On 
  34.    Repeat 
  35.       Synchro 
  36.       If Mouse Key Then Pop Proc
  37.       Wait Vbl 
  38.    Until Amreg(0)=0
  39.    Goto AG
  40. End Proc